home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / fullpage.sit / Full-Page Paint / card_3896.txt < prev    next >
Text File  |  1988-11-14  |  7KB  |  302 lines
  1. -- card: 3896 from stack: in
  2. -- bmap block id: 4557
  3. -- flags: 0000
  4. -- background id: 2715
  5. -- name: UserCard
  6.  
  7.  
  8. -- part 39 (field)
  9. -- low flags: 01
  10. -- high flags: 0004
  11. -- rect: left=3 top=23 right=202 bottom=142
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Control
  20.  
  21.  
  22. -- part 43 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=12 top=111 right=145 bottom=47
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 31975 / 31975
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Menus
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global temp, menu1
  37.   if visible of bkgnd field "toggle" is false then put "true" into menu1
  38.   if visible of bkgnd field "toggle" is true then put "false" into menu1
  39.   if temp is "gone" then show menuBar
  40.   if temp is "gone" then show bkgnd field "toggle"
  41.   if temp is "gone" then put "here" into temp
  42.   if menu1 is "true" then exit mouseUp
  43.   hide menuBar
  44.   hide bkgnd field toggle
  45.   put "gone" into temp
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 44 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=55 top=115 right=141 bottom=82
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 1014 / 1014
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Prev
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   go to prev card
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 45 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=94 top=115 right=141 bottom=121
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 1013 / 1013
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Next
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   go to next card
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 54 (button)
  89. -- low flags: 00
  90. -- high flags: 2000
  91. -- rect: left=58 top=78 right=104 bottom=78
  92. -- title width / last selected line: 65535
  93. -- icon id / first selected line: -15989 / 49547
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Delete
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   set lockScreen to true
  103.   get the name of this card
  104.   if it contains "Master" then answer "You can't delete the Master cards." with "OK"
  105.   if it is "OK" then exit mouseup
  106.   answer "Are you sure?" with "No Way!" or "Do it"
  107.   if it is "No Way!" then exit mouseUp
  108.   get first line of card field "Control"
  109.   domenu "delete card"
  110.   find it
  111.   domenu "delete card"
  112.   go to first card
  113.   put 0 into it
  114.   repeat the number of cards/2
  115.     add 1 to it
  116.     put it into field "Index Number"
  117.     go to next card
  118.     put it & "B" into field "Index Number"
  119.     go to next card
  120.   end repeat
  121.   set lockScreen to false
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 56 (button)
  127. -- low flags: 00
  128. -- high flags: A000
  129. -- rect: left=90 top=79 right=105 bottom=127
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 17794 / 17794
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Print
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   play boing
  141.   answer "Make your choice..." with "Forget It" or "Chooser" or "Print"
  142.   if it is "Forget It" then exit mouseUp
  143.   if It is "Chooser" then domenu "Chooser"
  144.   if it is "Chooser" then exit mouseUp
  145.   get first word of second line of card field control
  146.   if it is not "Upper" then answer "You must print from the Upper half" with "OK"
  147.   if it is "OK" then exit mouseUp
  148.   show msg
  149.   put "Don't forget to set the dialog box for:"
  150.   wait 3 seconds
  151.   put quote&"Print full size cards,""e&" and ""e& "No space between cards.""e
  152.   wait 3 seconds
  153.   hide bkgnd field "index number"
  154.   hide card button help
  155.   hide card button home
  156.   hide card button delete
  157.   hide card button print
  158.   hide card button new
  159.   hide card button prev
  160.   hide card button next
  161.   hide card button menus
  162.   hide card field control
  163.   open printing with dialog
  164.   push card
  165.   print card
  166.   go to next card
  167.   hide card button help
  168.   hide card button home
  169.   hide card button delete
  170.   hide card button print
  171.   hide card button new
  172.   hide card button prev
  173.   hide card button next
  174.   hide card button menus
  175.   hide card field control
  176.   print card
  177.   pop card
  178.   close printing
  179.   show bkgnd field "Index Number"
  180.   put "All done, Boss."
  181.   wait 3 seconds
  182.   hide msg
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 57 (button)
  188. -- low flags: 00
  189. -- high flags: 0000
  190. -- rect: left=15 top=149 right=172 bottom=44
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 21700 / 21700
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Home
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   go home
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 59 (button)
  207. -- low flags: 00
  208. -- high flags: 2000
  209. -- rect: left=17 top=75 right=107 bottom=42
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 1002 / 1002
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: New
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   go to first card
  221.   domenu "Copy Card"
  222.   ask "Name your painting..."
  223.   put it into pictitle
  224.   set lockScreen to true
  225.   if it is "" then exit mouseUp
  226.   go to last card
  227.   domenu "Paste Card"
  228.   put "" into field hidehelp1
  229.   put it into first line of card field "Control"
  230.   put the short date into last line of card field "Control"
  231.   set name of this card to "UserCard"
  232.   push card
  233.   go to second card
  234.   domenu "Copy Card"
  235.   pop card
  236.   domenu "Paste Card"
  237.   put "" into field hidehelp1
  238.   put it into first line of card field "Control"
  239.   put the short date into last line of card field "Control"
  240.   set name of this card to "UserCard"
  241.   go to first card
  242.   put 0 into it
  243.   repeat the number of cards/2
  244.     add 1 to it
  245.     put it into field "Index Number"
  246.     go to next card
  247.     put it & "B" into field "Index Number"
  248.     go to next card
  249.   end repeat
  250.   set lockScreen to false
  251.   find pictitle
  252. end mouseUp
  253.  
  254.  
  255.  
  256. -- part 60 (button)
  257. -- low flags: 00
  258. -- high flags: 2000
  259. -- rect: left=90 top=144 right=179 bottom=125
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 1020 / 1020
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: Help
  268. ----- HyperTalk script -----
  269. on mouseUp
  270.   hide bkgnd field hidehelp1
  271.   hide bkgnd field hidehelp2
  272.   wait until the mouse is down
  273.   show bkgnd field hidehelp1
  274.   show bkgnd field hidehelp2
  275. end mouseUp
  276.  
  277.  
  278.  
  279.  
  280. -- part contents for card part 4
  281. ----- text -----
  282. New Painting
  283. Lower Half
  284.  
  285.  
  286. -- part contents for background part 6
  287. ----- text -----
  288. 2B
  289.  
  290. -- part contents for card part 39
  291. ----- text -----
  292. Example Painting
  293. Lower Half
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302. 9/20/87